home *** CD-ROM | disk | FTP | other *** search
- object GedcomImport: TGedcomImport
- Left = 81
- Top = 145
- BorderStyle = bsDialog
- Caption = 'Gedcom import'
- ClientHeight = 199
- ClientWidth = 450
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 433
- Height = 153
- Style = bsRaised
- end
- object Label1: TLabel
- Left = 16
- Top = 56
- Width = 75
- Height = 13
- Caption = 'Import progress:'
- end
- object Label2: TLabel
- Left = 16
- Top = 16
- Width = 62
- Height = 13
- Caption = 'File to import:'
- end
- object Label3: TLabel
- Left = 16
- Top = 104
- Width = 77
- Height = 13
- Caption = 'Individuals read:'
- end
- object Label4: TLabel
- Left = 282
- Top = 104
- Width = 64
- Height = 13
- Caption = 'Families read:'
- end
- object Label5: TLabel
- Left = 16
- Top = 130
- Width = 417
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object OK: TButton
- Left = 194
- Top = 168
- Width = 65
- Height = 25
- Caption = '&OK'
- Default = True
- Enabled = False
- TabOrder = 0
- OnClick = OKClick
- end
- object ProgressBar1: TProgressBar
- Left = 24
- Top = 72
- Width = 401
- Height = 17
- Min = 0
- Max = 0
- TabOrder = 1
- end
- object StaticText1: TStaticText
- Left = 24
- Top = 32
- Width = 401
- Height = 17
- AutoSize = False
- BorderStyle = sbsSunken
- TabOrder = 2
- end
- object StaticText3: TStaticText
- Left = 352
- Top = 104
- Width = 73
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = '0 '
- TabOrder = 3
- end
- object StaticText2: TStaticText
- Left = 96
- Top = 104
- Width = 73
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = '0 '
- TabOrder = 4
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'ged'
- Filter =
- 'Gedcom files (*.ged)|*.ged|Text files (*.txt)|*.txt|All files (*' +
- '.*)|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware]
- Left = 384
- Top = 104
- end
- end
-